home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / DUMP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.3 KB  |  42 lines
  1. 100  '************************************************
  2. 110  '**  Memory Dump Routine for the I.B.M.  P.C.  **
  3. 120  '**                                            **
  4. 130  '**  Version 1.1             27 November 1982  **
  5. 140  '************************************************
  6. 150  '
  7. 160  CLEAR : DEFINT A-Z
  8. 170  SCREEN 0 : WIDTH 80 : CLS : KEY OFF
  9. 180  INPUT "Enter segment pointer address - " , A
  10. 190  INPUT "Enter first memory address    - " , B
  11. 200  LINECOUNT = 0
  12. 210  DEF SEG = A
  13. 220  LOCATE 24,1
  14. 230  ON LEN(HEX$(A)) GOTO 240,250,260,270
  15. 240  PRINT "000";HEX$(A);:GOTO 280
  16. 250  PRINT "00";HEX$(A);:GOTO 280
  17. 260  PRINT "0";HEX$(A);:GOTO 280
  18. 270  PRINT HEX$(A);:GOTO 280
  19. 280  PRINT CHR$(58);
  20. 290  ON LEN(HEX$(B)) GOTO 300,310,320,330
  21. 300  PRINT "000";HEX$(B);:GOTO 340
  22. 310  PRINT "00";HEX$(B);:GOTO 340
  23. 320  PRINT "0";HEX$(B);:GOTO 340
  24. 330  PRINT HEX$(B);
  25. 340  LOCATE 24,12
  26. 350  FOR X = B TO B+7
  27. 360  IF(PEEK(X)<16)THEN PRINT"0";HEX$(PEEK(X));" ";ELSE PRINT HEX$(PEEK(X));" ";
  28. 370  NEXT
  29. 380  PRINT "- ";
  30. 390  FOR X = B+8 TO B+15
  31. 400  IF(PEEK(X)<16)THEN PRINT"0";HEX$(PEEK(X));" ";ELSE PRINT HEX$(PEEK(X));" ";
  32. 410  NEXT
  33. 420  LOCATE 24,64
  34. 430  FOR X = B TO B+15
  35. 440  IF (PEEK(X)>31) AND (PEEK(X)<128) THEN PRINT CHR$(PEEK(X)); ELSE PRINT ".";
  36. 450  NEXT
  37. 460  PRINT
  38. 470  Z$ =INKEY$ : IF Z$ <> "" THEN 180
  39. 480  LINECOUNT = LINECOUNT + 1 : IF LINECOUNT = 16 THEN PRINT : LINECOUNT = 0
  40. 500  B=B+&H10 :IF (B<16) AND (B>-1) THEN A = A + &H1000 : GOTO 210
  41. 510  GOTO 220
  42.